From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 14 Feb 2009 09:03:19 +0000 (+0000)
Subject: (ispell-insert-word): Use `with-no-warnings' around forms that refer
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~1786
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9f7b97c0c0b29265822039f8575857d854e94479;p=emacs.git

(ispell-insert-word): Use `with-no-warnings' around forms that refer
to translation-table-for-input.
---

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 21ae997bb52..d567ff485d3 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1599,14 +1599,15 @@ This allows it to improve the suggestion list based on actual misspellings."
 			  (setq more-lines (= 0 (forward-line))))))))))))))
 
 
-;; Insert WORD while translating Latin characters to the equivalent
-;; characters that is supported by buffer-file-coding-system.
-
+;; Insert WORD while possibly translating characters by
+;; translation-table-for-input.
 (defun ispell-insert-word (word)
   (let ((pos (point)))
     (insert word)
-    (if (char-table-p translation-table-for-input)
-	(translate-region pos (point) translation-table-for-input))))
+    ;; Avoid "obsolete" warnings for translation-table-for-input.
+    (with-no-warnings
+      (if (char-table-p translation-table-for-input)
+	  (translate-region pos (point) translation-table-for-input)))))
 
 ;;;###autoload
 (defun ispell-word (&optional following quietly continue region)